home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / SCHEDLST.PRG < prev    next >
Text File  |  1980-01-01  |  1KB  |  48 lines
  1. *
  2. * SCHEDLST.PRG
  3. * REQUIREMENTS SCHEDULE LISTING FROM SCHEDULE.DBF
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET STATUS OFF
  7. CLEAR
  8. CLEAR ALL
  9. SET TALK OFF
  10. SET BELL OFF
  11. STORE SPACE(80) TO BLANK
  12. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  13. @ 3,10 SAY ">> Production System Requirements Schedule File Listing <<"
  14. @ 5,29 SAY "Today's Date: "
  15. ?? DATE()
  16. STORE "SCHEDULE" TO FILENAME
  17. STORE "SKSTOCK " TO INDEX
  18. STORE "SCHDLIST" TO REPORT
  19. @ 9,1 SAY "Run Report From The Following FILE " GET FILENAME
  20. @ 11,1 SAY "Ordered by the Following INDEX     " GET INDEX
  21. @ 13,1 SAY "Using the REPORT FORMAT Named      " GET REPORT
  22. STORE " " TO DUMMY
  23. @ 21,1 SAY ;
  24. "REPLACE VALUES AT CURSOR, OR JUST PRESS ENTER IF CURRENT REPORT DESCRIPTION"
  25. @ 22,1 SAY ;
  26. "IS O.K.  'M' HERE RETURNS TO MENU, ANY OTHER KEY STARTS THE REPORT =>";
  27. GET DUMMY
  28. READ
  29. STORE UPPER(DUMMY) TO DUMMY
  30. IF DUMMY="M"
  31.    RETURN
  32. ENDIF
  33. * OPEN FILE USING INDEX SPECIFIED ABOVE, OR NO INDEX IF IT IS BLANK
  34. IF INDEX="  "
  35.    USE &FILENAME
  36. ELSE
  37.    USE &FILENAME INDEX &INDEX
  38. ENDIF
  39. * RUN REPORT SELECTING RECORDS AS SPECIFIED BY DEFAULTS OR SCREEN INPUTS
  40. SET CONSOLE OFF
  41. SET PRINT ON
  42. REPORT FORM &REPORT TO PRINT
  43. EJECT
  44. SET PRINT OFF
  45. SET CONSOLE ON
  46. CLEAR
  47. RETURN
  48.